home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / standalone / drakxconf < prev    next >
Encoding:
Text File  |  2000-01-12  |  591 b   |  28 lines
  1. #!/usr/bin/perl
  2.  
  3. use lib qw(/usr/lib/libDrakX);
  4.  
  5.  
  6. use interactive;
  7. use keyboard;
  8. use Xconfigurator_consts;
  9. use common qw(:system);
  10. use c;
  11.  
  12. local $_ = join '', @ARGV;
  13.  
  14. /-h/ and die "usage: draxconf\n";
  15.  
  16. $::isStandalone = 1;
  17.  
  18. my $in = vnew interactive('su');
  19.  
  20. my $choice = $in->ask_from_list("drakxconf",
  21. _("Choose the tool you want to use"),
  22. [ grep { my $prog = $_; int grep { -x "$_/$prog" } split ":", $ENV{PATH} }
  23.   qw(XFdrake adduserdrake diskdrake drakxservices keyboarddrake mousedrake netdrake printerdrake draksec) ]) or c::_exit(0); 
  24.  
  25. $in->end;
  26.  
  27. exec $choice, @ARGV or $in->exit(1);
  28.